PC World 2002 May/PCWorld_2002-05_cd.bin/Novinky/grada/Aplikace/Otazky.dxr/00101_Ovládání menu.ls

Text File | 2002-04-14 | 1.5 KB | 55 lines

property Index_x, Old_x, Posun
global LVyber, SVyber, Posledni_menu

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Posun, [#comment: "Posun:", #format: #integer, #default: 1])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on beginSprite me
  set the visible of sprite the spriteNum of me to 1
  set Posledni_menu to the frameLabel
  set the locV of sprite (the spriteNum of me + 1) to (LVyber * 16) + 79
  if SVyber = Posledni_menu then
    set the visible of sprite (the spriteNum of me + 1) to 1
  else
    set the visible of sprite (the spriteNum of me + 1) to 0
  end if
end

on mouseWithin me
  set Index_x to integer((the mouseV - 66) / 16)
  if (Index_x > 0) and (Index_x < 29) then
    set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
    set the locV of sprite (the spriteNum of me + 1) to (Index_x * 16) + 79
    set the visible of sprite (the spriteNum of me + 1) to 1
    set Old_x to Index_x
  else
    set the cursor of sprite the spriteNum of me to -1
  end if
end

on mouseLeave me
  set the locV of sprite (the spriteNum of me + 1) to (LVyber * 16) + 79
  if SVyber = Posledni_menu then
    set the visible of sprite (the spriteNum of me + 1) to 1
  else
    set the visible of sprite (the spriteNum of me + 1) to 0
  end if
end

on mouseDown me
  puppetSound(1, "Klik")
end

on mouseUp me
  set LVyber to Old_x
  set SVyber to Posledni_menu
  go(string(Index_x + Posun - 1))
end